home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / programming / other / scm / slib / mularg.scm < prev    next >
Text File  |  1999-04-19  |  323b  |  13 lines
  1. ;;; "mularg.scm" Redefine - and / to take more than 2 arguments.
  2.  
  3. (define / /)
  4. (define - -)
  5. (let ((maker
  6.        (lambda (op)
  7.      (lambda (d1 . ds)
  8.        (cond ((null? ds) (op d1))
  9.          ((null? (cdr ds)) (op d1 (car ds)))
  10.          (else (for-each (lambda (d) (set! d1 (op d1 d))) ds) d1))))))
  11.   (set! / (maker /))
  12.   (set! - (maker -)))
  13.